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ABSTRACT 
Since  the   price   of  personal  computers   is   coiing   down,    it 
is   possible      to    have   computers      in   a      small   ship    that      has  a 
limited   budget.  The  commanding      officer   of      a   small      ship 

needs  a  support  systems  for  making  decisions  in  amphibious 
operations.  A  personal  computer  would  be  helpful  in  saving 
time  manipulating  the  information  used  to  make  decisions  in 
amphibious   operations. 

The  area  to  be  investigated  is  the  approach  to  the  sys- 
tems analysis  and  design  of  the  amphibious  operation  cont- 
roller and  simulation  program  in  ship-to-shore  phase.  We  use 
the  computer  to  control  the  waves  of  small  boats  that  carry 
-he   troops    to  shore. 
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INTHODaCTIOH 


A.       AMPHIBIOaS    OPEHATIONS 

In  World  War  II,  at  Normandy  on  of  the  French  coast, 
132,715  troops  were  landed  in  sixteen  hoars  on  6  June  1944 
against  seme  of  the  aost  sophisticated  shore  defences  then 
known.  At  Okin'awa,  an  island  about  600  miles  south  of  Japan, 
over  183,000  men  in  1,300  vessels  made  the  last  a  succession 
of  major  landings  by  United  State  amphibious  force  against 
determined   Japanese    defenders  in   April    1945. 


1 .      General 

Amphibious  warfare  integrates  virtually  all  types  of 
ships,  aircraft,  weapons  and  landing  forces  in  a  concerted 
military  effort  against  a  hostile  force, The  salient  require- 
ment of  the  amphibious  operation  is  the  necessity  of  build- 
ing up  combat  power  ashore  from  an  initial  zero  capability 
to  fully  coordinated  striking  power  as  the  attack  drives  -co- 
ward the  final  objectives.  The  amphibious  assault  musx  be 
conducted  in  the  face  of  certain  additional  difficulties. 
Natural    forces    such    as   unfavorable    weather,    seas,    surf,      and 
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features  of  hydrography  represent  hazards  not  normally  en- 
countered in  land  warfare.  Technical  problems  of  logistics 
include  loading  thousands  of  troops  and  large  quantities  of 
material  into  ships  at  widely  separated  embarkation  points, 
moving  them  to  the  objective,  and  than  landing  them  in  ex- 
actly the  proper  sequence.  Usually  on  open  beaches  or  land- 
ing zones  and  under  fire  initially.  All  this  requires  ex- 
traordinary attention  in  the  form  of  detailed  planning. 
During  the  movem^.t  from  ship-t o-shoce,  troops  are  especial- 
ly vulnerable.  Possible  employment  of  mass  destruction  weap- 
ons by  the  enemy  is  a  threat  to  the  amphibious  task  force, 
as  to  any  other  offensive  concentration  and  requires  the 
exercise  of  effective  countermeasures ,    both   active  and 

0 

passive,  during  the  stages  of  the  operation. 


2.   Definition  and  Characteristics 

An  amphibious  operation  is  an  attack  launched  from 
the  sea  by  naval  and  landing  forcss  embarked  in  ship  or 
craft  involving  a  landing  on  a  hostile  shore.  It  normally 
requires  extensive  air  participation  and  is  characterized  by 
closely  integrated  efforts  of  forces,  trained,  organized  and 
equiped  for  different  combatant  function. 
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3 .   Purpose 

Amphibious   operations  are   conducted  primarily  to 
establish  a  landing  force  on  a  hostile  shore  in  order  to; 

(1)  Prosecute  further  combat  operations 

(2)  Obtain  a  site  for  an  advanced  naval  or  airbase; 
and 

(3)  Deny  The  use  d  f  an   area  of   facilities   to  the 
enemy. 


4 .   Sequence 

The  amphibious  assault  follows  a  well  defined  pat- 
tern. It  includes  a  sequence  of  events  or  activities,  which 
occur,  although  to  a  lesser  degree,  in  ether  types  of  amphi- 
bious operations.  The  general  sequnce  consists  of  planning 
embarkation,  rehearsal,  movement  to  the  objective,  and  fi- 
nally assault  and  capture  of  the  objective.  Planning,  for 
example,  occurs  throughout  the  =ntire  operation  but  is 
dominant  only  in  the  period  prior  to  embarkation. 


5 .   Planning 

The  olanring  phase  denotes  the  period  extending  from 
the  insurance   of  -he   initiating  directive   to  embarkation. 
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During  this  phase,  the  necessary  preparatory  measures,  in- 
cluding coordinate  planning  are  effected.  Although  planning 
does  not  cease  with  the  termination  of  this  phase,  it  is 
useful  to  distinguish  between  the  planning  phase  and  the 
subsequent  operational  phase,  since  a  marked  change  occurs 
in  the  relationship  between  the  coamanders  of  the  various 
service  components  at  the  time  the  planning  phase  is  termi- 
nated and  the  operational  phases  begin.  At  the  commencement 
of  the  operational  phases,  the  coranander  of  the  amphibious 
task  force  assumes  full  responsibility  for  the  entire  force 
and    for   the  operation. 


6 .      Embarkation 

The  embarkation  phase  is  the  period  during  which  the 
forces,  with  the  equipment  and  supplies,  embark  in  assigned 
shipping. 


7 ,      Rehearsal 

The  rehearsal  phase  is  the  period  during  which  the 
prospec-ive  operation  is   rehearsed    for    the    purpose    of: 

(1),  Testing  the  adequacy  of  plans,  timing  of  de- 
tailed operations,  and  the  combat-readiness  of  participating 
forces; 
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(2).   ensuring  that  all  echalons  are   familiar  with 
plans;  and 

(3).  testing  comman  ications. 


8.   Movement 

In  this  phase,  the  components  of  the  amphibious  task 
force  move  from  the  points  of  embarkation  to  the  objective 
area.  This  move  may  be  via  rehearsal,  staging,  and/or  ren- 
dezvous areas.  The  movement  phase  is  completed  when  the 
components  of  th€  amphibious  task,  force  arrive  in  their 
assigned  position  in  the  objective  area. 


9 .   Assault 

The  assault  comprises  the  period  between  the  arrival 
of  the  major  assault  forces  of  the  imphibious  task  force  in 
the  objective  ar€a  and  the  accomplishment  of  the  aaphibious 
task  force  mission.  Development  of  the  area  for  i-s  ultimate 
use    may    be    initiated    during    this    period. 


10-       Assaul-    Operation 

Assault  operaxions  by  the  landing  force  begin  with 
the  ship-to-shore  movement  and  the  landing  of  the  first 
schedule    wave,       and    terminate  with      the    capture    of    "he    final 
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ground  obiectives  of  the  landing  force.  Other  forces  contin- 
ue to  provide  logistic  and  fire  support  during  the  assault 
operation  of  the  landing  force  and  continue  to  provide 
over- all   protection    of  tha    amphibious    task    force, 

B,       SHIP-TO-SHORZ   HOVEMENT 
1  •      General 

a.  The  ship-to-shore  movemsnt  is  that  part  of  the 
assault  phase  which  pertains  to  the  timely  deployment  of 
troops  and  their  equipment  from  assault  shipping  to  desig- 
nated positions  ashore  in  the  landing  area.  More  precisely, 
this  movement  is  designed  to  ensure  the  landing  of  troops, 
equipment,  and  supplies  at  the  prescribed  times  and  places 
and  in  the  information  required  by  the  landing  forces'  plan 
of  maneuver  for  operations  ashore.  The  movement  may  be  exe- 
cuted by  waterbrone  means  (  landing  ship,  landing  craft,  and 
amphibious  vihic les) ,  by  helicopters,  or  by  a  combination  of 
tha    two. 

b.  Although  the  ship-to-shore  movement  is  only  a 
part  of  the  assault  phase,  it  is  the  most  critical  part.  Th«= 
achievement  of  the  requisite  coordination  and  control  of  the 
many  diversified  naval  and  troop  alaments  participating  in 
the  ship-to- shore  movement  imposes  tasks  which  are  un- 
paralleled in  scope  by  anyother  military  operation  in 
modern   warfare.         Ship-to-shore      movaaant      planning   reflects 
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to  a  preemineiit  degree  the  requirement  for  concurrent  and 
parallel  planning  at  all  naval  and  troop  echelons.  The  land- 
ing plan,  consisting  of  a  variety  of  documents,  must  leave 
no  doubt  as  to  what  is  intended.  Whereas,  generally  in  mili- 
tary operations,  subbordinate  commmanders  are  only  told  what 
to  do,  there  is,  in  the  ship-to  shore  movement  and  equally 
compelling  requirement  to  spall  out  many  of  the  details 
concernning   how    the   operation   will   be    accomplished. 

c.  The  ship-to- shore  movement  may  encompass  any  or 
all    of   the    following   operations: 

(1)  Assembly  of  landing  ship,  landing  craft,  amphi- 
bious vehicles  and  helicopters  in  required  formation  for 
debarkation   and    landing. 

(2)  Debarkation  of  troops,  squipment,  and  supplies 
from    ship   into   appropriate    ship-to-shore    movement    means; 

(3)  Transfer   operations 
an  d, 

(U)  Controlled  landing  of  the  assault  echelons  of 
the    landing   force  to   includes  squipmant    and    supplies. 

d.  The  ship-to-shD re  movement  commences  on  order  of 
the  amphibious  task  force  commander  after  consultation  with 
the  landing  force  commanisr.  The  mDvement  is  brought  to  a 
close  when  all  of  the  troops,  sjuipment,  and  supplies  loaded 
in   assault    shipping    have   landed. 

e.The  ship-to-shore  movement  is  divided  into  two 
periods. 


IS 


(1)  The   initial  anloading  period    which   is    primarily 
'tactical      in   character     with  emphasis      on   responsiveness      to 

landing  force  requirements  ashore.  It  is  during  this  period 
of  the  ship-to-shore  movement  that  the  landing  force  is 
graining  its  foothold  ashore,  and  the  unloading  and  landing 
of  essential   men,   equipment,    and  supplies   is   very    selective. 

(2)  The  general  unloading  period,  which  is  primarily 
logistical  in  character,  emphasizes  to  the  delivery  of  quan- 
tity in  the  shortest  time  possible.  Although  the  aim  shifts 
•CO  volume  and  speed  rather  than  selectivity,  the  unloading 
and  landing  operation  shoal d  never  exceed  the  capability  of 
logistic  operations  ashore  to  handle  that  which  is 
delivered. 


CONTBOL    OF    SHIP-TO-SHORE    lOVEMENT 


1 .      General 

Control  of  the  ship-to-shore  movement  directly  or 
indirectly,  involves  the  DrganizatiDn  of  the  sea  area,  the 
establishment  of  a  number  of  con-crol  agencies,  and  the  era- 
ploymenx  of  various  control  techniques  and  devices.  The  num- 
ber and  arrangement  of  beaches  and  the  corresponding  types 
of  movement,  also  play  a  parn  in  the  control  system  to  be 
established   for    a  particular   operation. 
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2.      AlS.lL  Organization   for  Control    Landing 

For  a  discussion  of  the  organizaticn  of  the  sea  area 
in  its  entirety.  Organization  of  the  sea  operation  area 
close  to  the  shore  for  exscution  of  the  ship-to-shore  move- 
ment involves  certain  coordination  and  control  devices  as 
discussed   below. 

(1)  The  line  of  departure  is  an  off-shore  coordi- 
nating line,  approximately  parallel  to  the  landing  beach, 
from  which  the  successive  waves  of  boars  are  dispatched  for 
their  final  movement  to  the  beach.  If  beaches  are  separated, 
each  beach  has  its  own  line  of  departure,  which  is  marked  by 
a  ship  or  ships  cf  the  control  organization.  The  location  of 
the  line  of  departure  is  governed  by  topographic, 
hydrographic,    and  tactical    considerations. 

(2)  Boat  lanes  extend  seaward  from  landing  beaches 
of  the  line  of  departure.  The  width  of  the  boat  lanes  is 
determined    by  the  length   of    the    coresponding    beaches. 

(3)  Approach  lanes  are  extensions  of  boat  lanes 
from  the  line  of  departure  toward  the  transport  ares.  They 
may  be  terminated  by  marker  ships,  boats,  or  bouys.  Adjacent 
approach  lanes  may  be  parallel  or  may  diverge  to  seaward  to 
provide    for   early  dispersion   of    the    waves    of    beats. 

(U)  A  floating  dump  area  is  an  off-shore  area  in 
which   are   stationed   a   designated      nuaber   of   landing   craft    or 
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amphibious  vehicles,  loaded  with  supplies  to  meet  early  de- 
mands of  the  trocps  ashore.  A  floating  dump  area  should  be 
located  in  the  vicinity  of  the  line  of  departure,  with  due 
regard  for  adequate  dispersion  and  ease  in  control. 

(5)  Special  unloading  berths  into  which  transports 
may  move  for  unloading  are  established  in  the  vicinity  of 
the  approach  lanes.  This  result  in  reduction  of  the  running 
time  of  landing  craft  and  amphibious  vehicles  and  assists  in 
the  dispersion  of  transports. 

(6)  A  casualty  e  vacation  :;ontrol  berth  is  estab- 
lished for  a  ship  which  aay  be  specially  squiped  for  han- 
dling casualties.  Usually  this  is  a  landing  ship  in  which  a 
casualty  evacuation  control  officer  is  embarked.  Normally 
one  ber-h  is  allotted  to  each  beach.  A  berth  is  established 
to  serve  one  or  more  landing  beaches,  depending  upon  the 
proximity  of  landing  beaches,  and  is  located  as  close  to  the 
beach  as  condition  permit. 

(7)  The  transfer  area  is  a  designated  ares  to  sea- 
ward of  the  surf  line,  off  a  landing  beach,  where  personnel 
and  marerial  are  trasfered  from  laniing  craft  to  amphibious 
vehicles.  It  is  established  when  iroop  plans,  terrain,  or 
hydrographic  condition  dictate. 

(8)  A  transfer  berth  is  located  off  a  landing  beach 
in  the  proximity  of  the  transfer  lan=.  A  crane-equipped  ship 
or  a  barge  is  stationed  h=re  to  transfer  troops,  suplies, 
and  equipment  frcm  landing  craft  -co  amphibious  vehicles. 
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(9)  Ta€  amphibious  vehicle  launching  area  is  a  de- 
signated area  located  in  the  near  vicinity  and  to  seaward  of 
the  line  of  departure.  The  ships  carrying  amphibious  vehi- 
cles move  into  this  area  to  unloaded  them.  The  area  is  so 
located  in  relation  to  the  line  of  departure  as  to  ensure  a 
minimum  amount  of  maneuver  and  sea  area  transits  by  the 
amphibious    vehicles    prior   to   crossing    the    line   of    departure. 

(10)  The  causeway  lanching  area  is  an  area  located 
near  the  line  of  departure  but  normally  clear  of  the  ap- 
proach lanes,  where  ships  can  launch  pontoon  causeways.  This 
area  is  so  located  that  the  causeway  can  be  launched  in  a 
minimum  amount  of  time  and  with  least  interference  from  oth- 
er unit  operating  in  the  immediate  area.  Causeways  are  lo- 
cated adjacent  tc  but  not  in  boat  lanes,  usually  toward  the 
flank   of   the   beach. 
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II.       SYSTEM    SORVEI. 

A.       AHPHIBIOOS    OPERATION 

The  purpose  of  this  study  is  to  simulate  the  control  of 
amphibious  operation  in  the  ship-tD-shore-movement  phase. 
The  problem  is  hew  to  get  the  landing  force  to  the  shore  on 
time.  The  time  here  is  defined  in  rerm  of  D^Day,  H-Hour,  M- 
Minute,  which  means  that  at  the  date  of  D-Day  the  time  of 
H-Hour  and  M-ainute,  the  landing  force  will  do  the  amphibi- 
ous operation.  They  reach  the  shore  by  that  time,  not  before 
or  after.  In  order  that  landing  groups  reach  the  shore  on 
time,  the  course  and  speed  of  the  landing  groups  have  been 
previously  defined.  Usually,  the  coarse  is  perpendicular  to 
the  shore  and  the  speed  is  usually  70^-80%  of  the  maximum 
speed  of  the  landing  craft.  The  laniing  groups  are  parts  of 
the  whole  landing  force.  The  landing  groups  are  also  divided 
into  waves  when  landing  which  are  controlled  by  wave  guide 
commander.  Those  wave  guide  commanders  are  controlled  by  the 
control  ship.  Since  the  control  ship  may  be  destroyed  at  any 
time.  It  is  -cherefore,  reasonable  to  have  2  control  ships 
called  the  Primary  Control  Ship  (PCS)  and  the  Secondary  Con- 
trol Ship  (SCS)  both  ships  can  keep  track  of  the  movement  of 
Wave  Guide  Commander  (WGC)  ,  but  the  Primary  Control  Shir 
(PCS)       controls      the      Wave      Guide      Commander    (WGC) .         If    the 
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Primary  Control  Ship  (PCS>  is  destroyed,  the  Secondary  Con- 
trol Ship  will  take  over  the  control.  The  Primary  Control 
Ship  (PCS)  and  Seconary  Control  Ship  are  usually  anchored 
2,900  yards  avfa  y  from  the  shore  at  the  other  side  of  the 
boat  lanes.  The  boat  lanes  are  the  path  of  the  waves.  The 
width  of  the  lanes  is  about  400  yards  the  course  is  the  wave 
course  and  the  length  is  the  distance  between  the  shore  and 
conx.rol  ships,  usually  2,0  00  yards.  The  line  drawn  between 
the  Primary  Control  Ship  (PCS)  and  Seconary  Control  Ship 
would  be  across  the  boat  lane  and  parallel  to  the  shore- 
This  line  is  called  Line  of  Departure  (LoD) .  3y  using  the 
wave's  speed,  we  can  compute  the  time  the  wave  was  at  zhe 
Line   of   Departure    (LoD). 


TI 
12 

ME 
30 

6    MINUTES 

TI 
12 

ME 
36 

SPEED    10    KNOTS 

-)  r\r\n     ^^?  •nT^c 

Figure   2.1         Compute    time 
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For  example,  if  the  boat's  lane's  length  =  2,000  yards  wave 
spaed  =  10  knots,  H-Hour  =  12,  M-Minate  =30.  It  would  take 
2000*60/(10*2000)  =  6  minutes  (1  mile  =  2,000  yards)  for  the 
wave  to  reach  the  shore.  Therefore,  that  the  time  to  pass 
Line   of   Departure    (LoD)    would   be    12:24. 

Five  minutes  before  the  time  ro  pass  Line  of  Departure 
(LoD),  the  Primary  Control  Ship  (PCS)  raises  a  Zero  flag  in 
order  for  the  waves  to  proceed  to  the  Line  of  Departure 
(LoD)  .  At  the  time  to  pass  Line  of  Departure  (LoD)  or 
12; 2U,  as  the  example  above,  the  Primary  Control  Ship  (PCS) 
haults  down  the  flag  while  the  waves  forward  to  the  shore  it 
will  report  the  grid  position  every  minute.  The  grid  posi- 
tion is  based  on  whether  the  Wave  Guide  Commander  (WGC)  is 
in  the  middle  left  or  right  side  of  the  boat  lane.  We  divide 
th5  boat,  lane  into  5  regions,  Henca  the  boat  lane  that  is 
UOO  yards  wide,  0-  50  yards  from  laft  is  labeled  "LL", 
50-100  yards  from  left  is  labeled  "L",  100-  200  from  left  is 
labeled  "C",  0-50  from  right  is  labeled  "ER",  5  0-100  from 
right  is  labeled  "R".  The  report  iacludes  whether  the  wave 
Guide  Commander  (WGC)  is  early  ,  late,  or  on  time.  If  it  is 
early,  the  wave  should  decrease  the  speed.  When  the  waves 
reach  the  shore  the  Wave  Guide  Commander  (WGC)  will  report 
to  the  Primary  Control  Ship  (PCS)  "tDuch  down"  at,  which  time 
the  Primary  Control  Ship  (PCS)  will  no  longer  control  the 
wav  e . 
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B.   SYSTEM  DESIGN 

According  to  the  characteristic  of  computer  used  in  this 
study,  we  have  to  built  oar  own  characters  when  we  use  the 
high  resolution  mode.  The  characters  have  been  previously 
designed.  Each  character  occupies  5  bytes  of  lemory.  From 
ths  program  listing,  each  of  the  data  statements  contains 
the  data  for  one  character.  The  line  number  of  the  statement 
minus  2,200  is  the  ASCII  code  value  for  the  character.  Each 
character  is  defined  by  5*7  array  of  points.  Each  point  in 
the  array  is  translated  into  the  papar  bit  pattern,  and  the 
resulting  numbers  are  placed  in  the  data  statement.  The 
data  -are  then  stored  in  memory  from  location  316U7  by 
subroutine  SET  CHARACTER. 


1 .   Subroutine  Print  ^h ara3 ter 

This  routine  is  used  to  print  tha  character  at  -he  posi- 
tion ZX,  2Y  where  ZX  is  2  56  horizontal  does  on  the  screen 
when  this  routine  is  called.  ZZ$  i3  the  passing  parameter, 
ZZ$  is  the  character  we  .*ant  to  be  printed.  The  function 
as::  (ZZS)  will  return  ASCII  value  to  ZC.  The  statement  ZZ  = 
ZC+5+316U7  will  assign  tha  table  pointer  value  to  ZL.  ZQ  is 
ths  variable  pointer  of  an  array  A.  This  allows  the  charac- 
ter data  to  be  stored  in  variable  A.  A,  then,  will  be  PUT 
to  a  specific  location  on  the  screen  specified  by  ZX,ZY. 
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2-      Subroatine   Print   Jl  ess  age 

This  routine  is  used  to  print  a  string  of  characters  on 
screen.  the  first  character  will  be  at  location  specified 
by  ZX  and  ZY.  This  will  be  accomplished  by  moving  the  conse- 
cutive character  into  ZZ$  and  than  call  PRINT  CHARACTER 
routine. 


3.      Subroutine    Numeric    Input 

This  routine  work  lika  INPQT  statement  in  BASIC,  but  the 
prompt  message  can  be  located  by  ZX  and  ZY.  This  routine 
while  waiting  for  the  input,  will  keep  on  reading  the  time 
from  the  real  tics  clock.  It  also  checks  input  da-a,  if  the 
input  data  is  not  numeric  (ASCIKU8  or  >57  in  decimal  or 
$30-$39    in    hexadecimal). 


^  "      Subroutire    Set  Char  acts  r 

This  routine  reads  the  character  data  from  the  pro- 
gram and  place  it  in  the  physical  insmory  location  from  the 
address  31647  tc  the  address  32125  which  is  the  highest 
location    for    32K   computer. 
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5-      Subroutine   Plot   Grid 

This  routine  is  to  plot  the  boat  lanes  grid  on  the  screen 
by  using  10  yards: 1  dot  oa  the  screen  the  first  do  loop  is 
to  draw  6  horizontal  line  which  are  LL,  L,  C,  R,  RP.  regions. 
The  next  DO  loop  draws  vertical  distance  scale  from  0  to 
24000  yards  for  every  200  yards.  Libel  numbers  are  in  hun- 
dred of  yards.  The  sign  "  "  is  tha  location  of  Primary  Con- 
trol Ship  (PCS)  specified  by  PX  and  PY  which  are  the  input 
offset  values  from  the  INPUT  routine.  The  rest  of  this  rout- 
ine prints  all  the  labels  such  as  "SHORE"  draws  arrow,  print 
course   etc.. 


6  -      Subroutine    Time    Sea  le 

In    order   to   plot      the    time    scal=    on    boat   lanes    in    every 
minute,      we  have  to    know    the  speed,       then   convert    it    to   dis- 
tance  every      minute    and   'han   draw      a    correspond    line      on    tha 
screen 
SC    =    number   of    dots    on   ths    screen    (10    yards    per    dot) 
SC    =    S?*2000/(6  0*60)    yards /sec 
=  SP*2000  (60*60)     dots/s9c 

=  S?*2000*20/ (60*60*101     dots    for    svery    20    seconds 
A    DO   loop    is    used   to   label    the    time    scale    every    minute. 
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7.   Subroutine  Wave  Position 

This  routine  is  the  routine  which  interacts  with  the 
user.  We  have  tc  make  sure  that  error  will  not  occur.  This 
routine  will  ask  the  user  tc  reinput  the  data  if  the  data 
fails  certain  test.  This  routine  will  get  the  input  bearing 
and  range  first.  It  will  get  bearing  by  printing  the  "?" 
after  the  word  "tearing".  The  input  bearing  will  be  assigned 
to  variable  BR  first,  while  loop  check  if  the  input  bearing 
is  between  0  and  360-  If  it  is  not,  then  this  routine  will 
keep  on  asking  for  the  input.  After  the  computer  gets  the 
correct  bearing,  the  "?"  will  be  printed  after  the  word 
"RANGE"  the  user  is  supposed  to  input  range  of  the  wave 
guide  from  the  Primary  Control  Ship  (PCS).  Again  this  rout- 
ine will  check  the  user  input  numeric  data.  Only  after  the 
computer  gets  the  correct  input.  The  true  bearing  will  be 
computed  by  usingthe  equation 

WH=  (3E-C0)  /180*  3.  1U1592654 

WX  =  INT  (PX-RG/10*COS  (WH)  ) 

WY  =  int  (PY-rg/l  )  *SIN  (WH)  ) 

To  change  bearing  and  range  respect  to  offset  to  dot 
position  on  the  screen.  Phis  routine  also  provides  "he  me- 
chanism that  allow  us  not  to  plot  out  off  screen  edge.  For 
the  first  input  a  dot  (position  of  wave  )  will  oe  ploted  on 
the    screen    using   the    command   PR  SSET  (WX,  WY)     (since    the    scrsen 
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is  usually  SET  by  the  command  PCLS1  ) .  After  the  first  in- 
put, the  output  position  will  be  liied  to  the  previous  one. 
The  position  is  marked  by  the  "<"  sign  in  the  GET  and  PUT 
command.  The  GET  command  will  get  avery  thing  at  position. 
Ths  "<"  will  be  printed  (the  area  CDver  5*8  dots)  and  will 
be  POT  back  latei  after  tha  computer  compute  a  new  position 
and  then  GET  th€  data  from  the  new  position  before  printing 
"<"  and  so  on- 


6-   Subroutine  Print  Time 

This  routine  is  to  print  Hour  minute  and  second  of  the 
present  time.  This  routine  will  b=  called  once  after  each 
input.  Therefore,  the  time  output  is  latched. 


9.   Subroutine  Read  Tinie 

While  waiting  for  bearing  and  range  to  be  inputs,  this 
routine  will  be  called  repeatedly,  together  with  polling 
keyboard  in  order  to  update  the  time  variable  TH,TM,TS  (note 
that  the  real-t  ime- clock  is  still  running  all  the  time  by 
using  1/60  second  hardware  interupt). 


10.   Subroutine  Error  Table 
This  routine  only  handles  error  messages. 
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11,  Subroutine    Error  Handler 

This  routine  outputs  the  error  neaasges  into  error  mes- 
sage area  on  the  screen  when  this  routine  is  called  only  the 
number  of   error    nessage   is    passed. 

12.  Subroutine   Comfiiiii   lil©   Difference 

TU    is   the   time    taken   to    rsach    the   shore   at   speed    SP. 
Ta  =  W  X*  1  0*6  0/  (2  0  00*  S  P) 
=WX*.3/SP 

TP  is  the  planned  time  in  minute,  if  TP=  U  means  by  the 
schdule,  we  have  4  minut=s  to  reach  the  shore  and  if  TU=2r 
means  it  would  take  only  2  minute  to  reach  the  shore,  if  we 
retain  the  same  speed,  another  word  we  can  say  is  thac  we 
are  4-2  =2  minutes  earlier  than  we  have  planned.  This  is  how 
we  can  determine  if  we  are  early,  late,  or  on  time.  Hence  it 
takes  about  1  or  2  seconds  to  print  a  message.  If  the  mes- 
sage is  the  same  as  the  last  time  we  have  printed  on  the 
screen,  we  don't  have  to  put  it  again  on  the  screen  the  mes- 
sages will  stay  latch  until  we  print  blanks  over  rhem.  To 
handle   this    we   use    TT$   to   be  the    value    of   the   last    message. 
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13.       Subroutine    Input 

This  routine  use  normal  screen  (alphanumeric  mode)  to 
input,  in  order  to  minimize  the  number  of  statements.  This 
routine  input  H-Hour(HH),  M-Minute,  time  in  hour(TH)  time  in 
minute  (TM)  ,  course  of  wave  (30),  speed  of  wave  (SP)  and 
also  set  real-ti  le-clock,  each  of  the  input  is  also  checked 
for    validation. 


1U.      Subroutine    Grid   Rejoort 

This  routine  use  the  value  of  WY  (wave  position  of  Y- 
axis)  and  determine  whether  rhe  W3C  is  in  which  region  by 
returning   the   value    of     grid   "LL", "L" , "C", "R","RE"to   gr$   and 

we  use  GCS  to  store  the  value  of  tJia  recommened  vector,  GGt 
store  the  value  of  the  last  vector  DUtput.  If  -he  current 
vector  output  is  the  same  as  the  lasi.  one,  the  output  will 
not    have  to   be    printed  again. 


15.      Sub^Qut  4ne    Bcho   In  gut 

This  rou-ine  just  echoes  the  input  by  using  the  high  re- 
solution mods.  The  inputs  echoed  are  wave  speed  H-Hour,  ^• 
Minute,    also    prompt    bearing,    range,    and    display    all    labels. 
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16.  Subroutine   Offset 

This  routine  get  the  position  of  Primary  Control 
Ship  (PCS)  by  using  the  reference  position  (  the  point  on  zhQ 
left  edge  of  boat  lane  intersected  by  the  Line  of  Departure 
(LoD)  )  or  column  200  row  17  2  on  the  physical  location  on  the 
screen.  PX,  PY  will  be  the  physical  location  of  Primary 
Control  Ship  (PCS)  on  the  screen. 

17.  Subroutine  Mast er  Control 

This  routine  just  calls  the  lower   level  modules   and 
prompts  the  user  if  he  would  like  to  continue. 
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III.       aSERlS    HANOAL. 

A.  SPECIFICATION. 

This  program  is  designed  to  use  with  7RS  30  Color  Compu- 
ter 32  K  bytss  with  Extsnied  BASIC  system.  The  program  size 
is  1 1  K  bytes  and  need  working  area  for  at  least  1  K  bytes. 
Since  the  monitor  system  occupy  3  K  bytes  and  we  use  4 
graphic  pages  or  6  K  bytss  .  Therefore  this  system  consumes 
26  K  (6+8+1+11)  cf  memory  space.  The  machine  that  has  memory 
less  than  32  K  bytes  is  not  recommansd. 

B.  USE    OF   THE    PEOGRAM. 

This  program  is  on  t^e  cassette  nape  which  should  be 
loaded  with  the  CLOAD"AMPHI"  command.  When  the  program  is 
already  loaded,  simply  type  RUN  to  run  the  program,  ycu  have 
to  wait  for  only  a  few  secDnds.  Ifou  will  be  prompted  for  a 
series  cf  parameters  as  shown  below. 
H-HOUR  the  hour,    time   when    the   landing    force 

were   at    the   shore. 
SET    HOUR  the  present    hour. 

M- MINUTE  the  minute,    time   when    the   landing    force 

were   at    the   shore. 
SET   HOUR  the  present   hour. 

SET    MINUTE  the  prssent    minute. 
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B0ATLAN2'S   COURSE    the  course   which   tha    wave   planed   to    use 

usually    perpendicular   to   the   shore. 
the  spsad    which    ths    wave   planed   to    move. 
the  bearing  from   the    planed  PCS. location 
to  the   real   location. 
the  range    from   actual   PCS. location   to 
therotical  location. 
After   you  have   answer  all   the   qusstions,      it    will    take  a 
while   to   plot   the  grid  and    all  labels    as   shown   in   figure   3.1 
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Fiaure  3.1    Displayed  Grid 
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1.  Echo   H-Hcur    input, 

2.  Echo   wave's    speed   input. 

3.  Echo   wave's    course    input, 
a.  Bearing    input  area. 

5.  Range   input   area. 

6.  Display    time. 

7.  Control    command  arsa. 

8.  Grid   position   display   area. 

9.  Distance   from  shore    in  hundred    of    yards. 

10.  Wave's   direction. 

11.  Shore. 

12.  Secondary  Control   Ship    (SCS)  . 

13.  Line   of    Departure    (LoD)  . 

14.  Primary    Control    Ship    (PCS). 

15.  Time's   scale   in   minute. 

16.  Error   message  display  area. 

17.  BR  region. 
18-  R  region. 
19.  C  region. 
2  0.  L  region. 
21.  LL   region. 

After  grid  is  plotted  the  vertical  line  will  be  labeled  by 
numeric.  On  the  top  of  the  grid,  numbers  indicate  the  dis- 
tance from  the  shore  in  hundreds  of  yards.  The  Line  Of  De- 
parture   will   be    at    2,000    /ards    from    the    shore   or    labeled    20. 


33 


The  rendezvous  area  will  be  anywhere  beyond  the  2,000-yard 
line.  The  label  at  the  bottom  is  the  time  scale  in  minutes 
which  corresponds  to  your  input  wave*s  speed.  If  the  wave 
speed  were  10  knots,  the  time  required  from  the  Line  Of  De- 
parture (LOD, )  to  the  shore  would  be  6  minutes.  When  you 
see  the  "?"  after  the  word  "BEARIN3",  then  you  can  input 
bearing  in  degrees.  The  maximum  input  is  360,  if  you  input 
the  number  larger  than  that  an  error  message  will  be  dis- 
played. After  ycu  have  in  put  bearing  you  will  see  the  "?" 
again,  after  the  word  "RANGE",,  Yoa  may  input  the  range  of 
the  wave  guide  from  Primary  Control  Ship  (PCS).  Usually,  we 
can  get  the  bearing  and  range  from  RADAR.  Within  a  second 
the  screen  will  display  time.  The  tiie  will  stay  latched  un- 
til you  input  another  bearing  and  range.  You  will  see  the 
position  of  the  wave  guide  indicated  by  "<"  sign  anywhere  on 
the  boat  lanes  depends  on  your  inputs,  the  screen  also  dis- 
plays the  grid  position  indicated  by  the  letters  C,L,LL,R,RR 
which  mean  that  en  the  middle,  on  the  left,  on  the  far  left, 
on  the  right,  on  the  far  right  respectively.  For  example,  if 
the  grid  position  is  L,  it  means  you  are  on  the  left  side  of 
boat  lanes  and  a  change  of  course  to  the  righx. 
In  this  case,  "VECTOR  RIGHT  5"  will  be  displayed  as  shown  in 
figure  3.2.  The  computer  tells  you  the  vector  every  time 
you  are  not  at  " C"  position.  If  you  stay  a*  the  far  right 
position  in  "LI"  the  vecter  to  be  recommened  would  be 
"VECTOR    LEFT    10)  .         The    computer      also    tells    you    whether    you 


34 
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Figure    3.2        Simulation   and   Control   Display 


ars  on  time  or  not.  If  you  are  lata  or  early  the  computer 
will  tell  you  how  late  or  early  you  are.  This  message  will 
be  displayed  afxer  the  grid  position.  For  example,  if  you 
have  3  minunes  to  get  to  the  shore  and  you  are  at  1  minute 
line,  the  display  would  be  2  minutes  early,  you  are  supposed 
to  reduce  the  speed  in  order  to  get  to  the  shore  exactly  on 
tiine.  After  your  second  bearing  and  range  inputs,  the  output 
location  of  wave  guide  will  be  linked  to  the  previous  one. 
Therefore  you  can  track  ths  movement  of  the  wave,  ena- 
bling   you      zo   provide      better    decisiDQ    making. 
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WAVE'S  SPEED  IS  10  WAVE'S  COURSE  IS  270 
H-HOUR  IS   8  30 
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Figure  3.3    End  of  Control 


Finally  when  you  reach  the  shore  the  ccmpu-cer  will  dis- 
play "TOUCH  DOWN",  the  control  is  complete  see  figure  3.3, 
ani  you  are  now  ready  to  control  another  wave. 
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C.       EBBOB    MESSAGES    SaHMAR7. 

There   are   5  errors   produced    by   the   program. 

1.  OUT  OF  SCBEEN  error  means  the  misposition  of  wave 
guide  which  the  computer  plots.  Out  of  screen  eror  occurs 
when  it  is  not  within  the  computer's  capability  to  provide 
output  on  screen.  This  error  may  result  from  the  out-of- 
screen  boundary  data  (the  horizontal  dot  position  greater 
than  255  or  less  than  0  or  the  virtical  dot  position  greater 
than  191  or  less  than  0)  or  from  wrong  inputs,  such  as  the 
range  between  the  wave  guide  and  PCS  is  too  long  or  bearing 
is  in   the   wrong    direction. 

2.  TOO  SMALL  VALUE  results  from  inputs  which  are  too 
small,  eg.  when  the  wave  speed  is  lower  than  2  kno-s  or  when 
the    input    which    should  be   positive   tarned   to    be    negative. 

3.  GHEATES  THAN  360  happens  only  when  dealing  with  bear- 
ing input.  Since  bearing  can  be  at  its  most  at  360  degrees, 
if  bearing  input  more  than  360  degrees,  this  error  will 
result. 

4.  TOO  LARGE  VALUE  results  from  inputs  which  are  too 
large,  eg.  when  we  input  time  more  than  23  hours,  or  59 
minutes;    or    when    we    input   range   more    than    9,999yards. 

5.  INVALID  INPUT  results  from  wrong  types  of  data,  eg. 
alphabetical    data   is    input    in   place   of    numerical    data. 
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D.      CONCLDSION. 

The  ship-to- shore  movement  is  that  portion  of  the  as- 
sault phase  which  includes  the  employment  of  landing  forces 
from  the  assault  shipping  to  designates  landing  areas.  It 
has  as  its  purpose  the  landing  of  assault  units  at  the  prop- 
er times  and  places  and  in  the  formations  required  by  the 
landing  force  plan  of  maneuver  ashora.  It  commences  on  ord- 
er of  the  amphibious  task  force  commander  and  is  brought  to 
a  close    when   unloading  of   assault   shipping   is   completed. 

In  order  to  increase  the  ship-to-shore  movement  control 
efficiency,  including  accuracy  of  riias  and  places,  computer 
usage  in  controlling  proves  to  be  v=ry  benefical.  Normally 
ship-to-shore  movement  control  is  bised  on  manual  plotting. 
This  process  takes  approximately  30  seconds  to  one  minute, 
from  the  time  of  receiving  input,  to  the  time  of  plotting 
the  wave.  The  use  of  computer  in  control  provides  needed 
output  within  less  than  5  seconds  after  the  time  of  data  in- 
put and  control  irore  boat  lanes  accurately  in  a  few  seconds. 
Additionally,  the  computer  control  system  may  be  used  in 
other  phases  of  amphibious  operation;  eg.  firing  support 
system,    rehearsal  phase,    etc. 

In  the  near  future,  hundreds  of  thousands  of  lives  may 
be  saved  if  computer  control  system  replaces  the  manual 
amphibious    operation. 
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APPENDIX    A 


ALGORITHM. 


(This    program    is      to  simalate   the   amphibious     operation   in 
ship    to    shore    movement   phase) 
(varible   declaration) 
a$      =   string  buffer    for  display 
c$      =  numeric   input   buffer 
gcS    =   command  used    for    control 
grS    =   grid   report   buffer 
q£      =  guit   command 
sH$    =  output   the  word  "shore" 
t$      =   time  report   storage 
tt.*^    =   previous    time    report    output 
zz$   =  character   of    a3 
bp      =   offset   bearing 
br      =    bearing    wave    input 
cl      =   lenght   of   c$ 
CO      =    Iain's   course 
em      =    error   message    location 
fg      =   flag   of   position   plDt 
g     =   varible   grid    plot 
hh    =    h-hour 
i     =   loop   counter 
j      =    looD    counter 
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k  =  loop  counter 
1  =  length  of  a$ 
mm   =    m- minute 

ph   =    direction    in    degree 

px   =   hcrizontol  axis  of   pr s. 

py   =   vertical   axis    of  pes, 

qq    =    quit    flag 

rg  =  range  from  wave  guide 

rn  =  offset  range 

sc  =  time  scale 

sp    =    speed  of    wave    guide 

tc   =    difference   of    wave   time   and  predicted  time 

tp   =    predicted    time 

th    =   time    in   hour 

ta    =   time    in  minute 

ts    =   time    in   second 

tu    =    actual   nime   of    wave 

vx   =   previous   horizontal   axis   of   wave 

vy    =    previous    vertical   axis  of    wave 

wh    =   relative   bearing  of   wave   in   degree 

wx    =    horizontal   axis   of    wave  location 

wy   =    vertical   axis    of  wave    location 

XV    =   numeric   input    from   Ice  y  board 

zU    =   character    width 

z7    =   character    high 

z8    =   character    gap 

z9    =   line   gap 
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zc  =   character    ^331  a 

2I  =   data    pointer   to  real    character 

zq  =   varible   pointer  of   array   "a" 

zx  =   horizontal   location   of   alphanumeric  output 

zy  s=   vertical   location   of    alphanumeric   output 
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master  control  program 
call  set  characters 
call  error  table 
q$  =  »•" 

do  while  q$    O    "q" 
call  inpat  data 
call  offset 
call  echo  input 
call  set  time  scale 
call  plot  grid 
do  whils  qq  <>  1 

call  wave  position 
call  print  time 
call  compute  time  difference 
call  grid  report 
end  do 
input  q$ 
end  do 
end  master  control 
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subroutine  offset 

input  "the  offset  of  primary  control  ship  from  reference 

point  in  bearing"  ; bp 
do  while  bp  >  360 
print  er$(3) 

input  "the  offset  of  primary  control  ship  from 
reference  point  in  bearing"  ; bp 
end  do 
do  while  bp<0 

print  er$(2) 

input    "the   offset   of   primary    control   ship    from 
reference    point   in   bearing"    ;bp 
end    do 

input   "range   from  reference    point ";rn 
?h   =    int(bp-co) /180*3.  1  ai592654 
px  =    int  (200-rn/10*cos(ph)) 
py   =   int  (17  2-rn/10*sin  (ph)) 

do    while   px    >  255   or    px    <   0    or   py    >    191    or   py    <   72 
input   "range    from   reference   point";rn 
print   er$  (1) 

ph   =    int  (bp-co)/130*  3.  1U1592654 
px   =   int  (  200-rn/1  O*cos  (ph)  ) 
py  =   in-  (  172-rn/10*3  in  (ph)  ) 
end    do 
return 
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subroutine  echo  input 

(set  screen  to  graphic  mode) 

2X  =  0 

zy=0 

a$="wave's    speed  is"   ♦    strS(sp)     •♦•    "    wave's   course    is"   ♦ 
str$(co) 

call    print_inessage  (2X,  zy  ,a$) 

zx   =   0 

zy   =   9 

aS   =    "h-hour  is"  -♦•    strS(hh)     +   ":"    •♦•   str5(mm) 

call    print_  message  (2x,  zy, a  $) 

zx=36 

zy=18 

a $=" bearing  " 

call    print_niessage  (zx,  zy  ,a  3) 

zx=36 

zy=27 

aS="range" 

call   print_message (zx,  zy ,a$) 

zx=36 

zy=36 

aS="tiffle" 

call    print_message (zx,  zy,a$) 

zx   =    36 

zy   =   i45 

a$  =  "grid  position  is" 

call  prints  message (zx, zy, a $) 
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zx    =     11U 

zy    =    18 

a$   =   "degrees" 

call   print_ message (zx,  zy, a $) 

zx   =    114 

zy    =    27 

a$   =    "yards" 

call    print_iiiessage  (zx,  zy,a  J) 

return 


sohroutine   grid    report 

if    «y    <    1U2  and  wy    >=    137    then 

gr$   =  "r   " 

gc$  =  "vector  left  5  " 
end  if 

if  wy  <  162  and  wy  >=  142  then 

gr$  =  "c  " 

gc$  =  "  " 

end  if 

if    wy   <    167  and  wy    >=    162    than 

gr$   =  "1    " 

gcS   =  "vector  right    5  " 
end   if 
if    wy   >=    16  7    then 

grS   =  "11" 
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gc$  =  "vector  right  10" 
end  if 
if  wy  <  137  then 

gr$  =  "rr" 

gc$   =   "vector   left     10   " 
end   if 
if   wx   <=0   then 

gr$  =    "touch    down" 

zx   =    32 

zy   =   72 

a$    =   "press'q*    to   quit   else    :3Dntinue    !" 

call   print_m€ssage  (  zx,zy ,  a$) 

qg    =    1 
end    if 
zy    =   45 
zx    =    138 
a$    =   gr$ 

call    print_message  (zx,  zy,  a$) 
if   ggS    <>   gc$   then 

zy    =    54 

zx   =    36 

a  3   =   gc$ 

call   print_message  (  zx,zy  ,a5) 

gq$    =    gc$ 
end    if 
return 
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subrouTine   input  data 
< clear   screen) 
input"h-hour ";hh 
do   while   hh    >  23 
print   er$  (4) 
input"h-hcur" ; hh 
end   do 

do    while    hh    <  0 
print   er$  (2) 
input"h-hour " ;hh 
end   do 

input    "ffl-fflinute"  ;miii 
do    while    mm    >  59 
print    er$(U) 
input   "m-minute"  ;fnni 
end   do 

do    while   mm   <    0 
print   er$(2) 
input    "m-minute"  ;n»m 
end    do 

input   "set    hour";th 
do    while   th    >    2  3 
print   erS(4) 
input   "set    hour";th 
end    do 

do    while  th    <    0 
prinr    er$(2) 
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input   "set   hour" ;th 
end   do 
input    "set    minute  tha    realtima    3lock    will 

start  after   you    press   <enter>";tin 
do    while   tm   >    59 
print   er$(4) 
input    "set    minute  the    realtime    clock    will 

start  after    you    press  <snter>";tm 
end   do 
do   while   tm   <    0 

print   erl(2) 

input   "set    minute    the   realtias    clock   will 
start   after    you   press   <snter>";ti 
end    do 

timer=0  (start   realtiaa    clock) 
input   "boat   lane's    course" ;co 
do    while  co   >    360 

print   er  $(3)  : 

input   "bcax    lane's    course" ;co 
end   do 
do    while   co   <    0 

print   erS(2) 

input   "boat    lane's    course"; co 
end    do 

input    "wave's    speed";sp 
ic    while   sp    <    2 

print   er3(2) 
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input    "wave's   speed ";sp 
end    do 
return 


subroutine   compute    time   difference 
tu   =   int  (wx*.  3/sp) 

tp    =    60*  (hh-th)  +  (mrn-tm) 
if   tp   =    60 /sp   then 

zx    =    36 

zy   =   54 

a$   =   "zero    flag   down" 

call   print^message  (  zx,zy ,  aS) 
end  if 
if    int  (xp-60/sp)     =   5   than 

zx   =    36 

zy    =    54 

aS   =   "zero   flag   up" 

call   pr  int^messaga  (  zx,zy ,aS) 
en d   if 
tc  =   tu-tp 
if  tc   =   0   then 

aS   =   "you  are  ontiae" 

zy   =    36 

zx    =    152 

t$   =   a$ 

call    prir.t_rnessag?  (  zx,zy ,a.S) 
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else    if   tc  <  0  then 

t$  =  "min.  early" 
else 

t3=" min. late" 
end   if 

tc   =   int  (abs  (tc)  ) 

if    t$   =  ttS    then 

zy   =  36 

2X   =  152 

a$  =  £tr$  (tc) 

call  p:int__message  (zx,zy,  a$) 
end    if 

if   T3   <>   tt$    then 

zy   =  36 

zx  =  152 

a$   =  £tr$  (tc)    4-    t? 

call  p:int_[nessa  ge  (zx^zy  ,aS) 
end   if 
end   if 
zt$   =  t$ 
rat  urn 


subroutine   error  handler 
zx    =    36 
zy   =    54 
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aS   =   erS  (em) 

call   print^message  (zx,zy  ,a$) 

rsturn 


subroutine   error  table 

er$(1)  =   "out  of    screen        " 

er$(2)  =   "too  small   value  " 

erS  (3)  =    "greater  than    360" 

er$(4)  =   "toe  large   value   " 

er$(5)  =   "invalid  input        " 

return 


subroutine   read   time 
ts  =   fix(tiin€r/6  0) 
if   tc   <>  ts    then 
tc   =   ts 

if   ts   >=    60    then 
timer    =  0 
tm   =   tm+l 
ts=ts-  60 
end    if 

if  tm   >=    60    then 
th  =   th-H 
tm   =   0 
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€nd    if 

if   th   >=    24   then 

th   =   0 
end   if 
€n  d   i  f 
r5  "t  u  rn 


subroutine   print  time 

a$   =    str$«th)    +    str$(ta)    +   str$(ts)     *    "    " 

zy  =    36       , 

zx   =    90 

call    print_in€ssage(zx,z  y,a$) 
return 


subroutine    wave   position 
zx   =    78 
zy  =    18 
a$  =    "    ?  " 

call    prin-_m€ssage  (zx,z  y,  a3) 
zx  =    84 

call   numeric_input  (zx,  z  y) 
br  =    XV 

do   while   br    >  36  0   or   br    <   0 
em    =   6 
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call  error__handl3r  (em) 

zx   =    7  8 

zy   =    13 

aS   =  "    ?  " 

call   pr  int^message  (zx,  zy,a$) 

zx   =   84 

call   nu  ireric_inpat  (zx,  zy) 

br  -    XV 
end   do 
zx   =    78 
zy  =    27 

a$   =   "    ?  " 

call    print^m  €ssage(zx,  z  y,a$) 
zx   =    84 

call   nuineric_input  (zx,zy) 
do    while   em    =  4    or   em   =    6 

em  =   0 

zx   =   78 

zy   =   27 

a$  =   "    ?  " 

call    ?r  int_messaga  (zx,  zy  ,aS) 

zx    =   84 

call   nu  [reric_inpa"c  (zx,  zy) 
end   do 
rg   =    XV 
do   while   rg   <    0 

em    =   6 
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call  er rcr^handlsr  (em) 
zx   =   78 
zy   =   27 

a$   =   "    ?  " 

call    pr  int^messaga  (zx,  zy,a$) 
zx   =    84 

call  nu  neric^inpiit  (zx,  zy) 
end   do 

wh   =    (br-co)/180*3. 141 592654 
wx   =   int  (px-rg/10*cos  (  wh) ) 
wy   =  int  (py-rg/1C*sin  (wh) ) 
if    wx    <  o   then 

wx=0 
en d    if 

if   wx    >    255   or    wy  >    19  1    or    wy  <    0    then 
€[n=  1 

call  errcr_handl9r (em) 
return 
end   if 
if    f  g   =   0   t  hen 

preset  ( wx,  wy) 
fg  =  1 
else    if   fg   =    1    then 

line  (wx  ,wy)  -  (vx-vy  )  ,  preset 
put (vx, vy) -  (vx+zu,  vy+z7) , b, pset 
end   if 
vx   =    wx 
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vy   =  wy 

get  (wx, wy)  -(wx+zU,  wy*  z7) , b,g 

zx   =  wx 

zy  =  wy 

a$    =  "<" 

call  print_niessage  (zx  ,zy,  a$) 
return 


subroutine   set    time's  scale 
sc  =    sp*.  55  5  55*2 '20    sac 
k   =    0 

do   for    i   =    0   to    220    step   sc 
if   k/3-int(k/3)    =   0    then 
a$   =   str$  (int  (k/3)) 
zx  =   i 
zy   =    180 

call   print_inessage(  zx,  zy,  a$) 
line  (i,  132)- (i,  176)  ,pr  =  s  =  z    end    if 
line  (i,172)  -  (i,176)  ,  preset 
k   =    k-H 
next   i 
return 


subroutine   plot   grid 
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g  =    132 

do   for   i=   1    to   6 

line  (0,g)  -(255, g)  , preset 

g   =   g>5 

if   g   =    147  then 

g=162 
end   if 
next    i 

do    for    i   =   0   to    255   stsp   20 
line  (i,128)-  (i,172)  ,  preset 
if   i  <>   0   then 
2X   =   i-12 
zy   =    120 

a$  =   s^rS  (int  (i/1  0)  ) 
call    print__!nessage  (2x,  zy,  a?) 
end    if 
next    i 
zx  =   px 
zy  =    py 
a$  =    "#" 

call    prinx_m€ssage(zx,  z y,a3) 
line  (0,  128K-  (20,80)  ,praset 
line  (20  ,80)  -  (20  ,  30)  ,  preset 
shS   =    "shore" 
zy  =    36 

do   for   i   =    1    to    5 
zx   =   0 
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a$   =   mid$  (shS^i,!) 

call    prin  t_iHessage(zx,  zy,  a$) 

zy   =  zy+9 
next   i 

draw    "bffl112,  10  8;c0;e10; da;r2U;d12;124;aa;h10" 
zx   =    118 
zy  =    10  5 
a$  =   str$  (CO) 

call    print_aiessage(zx,  2  y,  a$) 
zx   =    60 • 
zy  =    88 

a$   =    "ship   tc  shore    simulation" 
call    print_in€ssage  (zx,  z  y,  a$) 
return 


subroutine   numeric    input 

call    print_!n  €ssage  (zx,  z  y,  a5)     'input 
c$   =   "" 
i  =  1 

A$  =    inkey$ 

if   a5   <>   chr$(13)    then 
cl  =    len  (c$)  -1 
do   while    a$    =   chrl(8) 
cS   =   l€ft$  (c$,cl) 
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zx   =   zx-6 

A$  =   inkey$ 
end   do 
do    while   a$  =    "" 

call  read__time 

k$  -   inkeyS 
end   do 
if    asc(a$)    <   U8  or   a3c(a$)    >   57    then 

e[n=6 

call   error_handlar  (em) 
else 

return 
en d    if 
c$   -   c$+aS 

call   print_a»essage  (zx  ,zy,  a$) 
i  =   i+1 
if    i   >    5   then 

em   =   U 

call   error_handlar  (em) 

return 
en d   if 
end   if 
XV  =    val  (cS) 
rsturn 
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subroutine  set  character 
dim  a  (2)  ,  b  ( 2)  ,  er$(6) 
(clear  screen) 
print  "please  wait  for  loading  characters  !" 

z7  =  7 

z8  =  6 
z9  =  9 

do  for    zl   =    0  to    U79 
read   zc 
poke   3  1647-fzl,zc 

next   zl 
rexurn 


subroutine    print   message 
1   =    len(aS) 
doforj=1tol 

zzS    =    mid3(a$,j,1) 

call    prin  t__charact3r  (zx,  zy,z4  ,  z7  ,z3  ,  zzS) 
next    j 
return 


subrou-^ine   print  character 
zc  =   asc(zz3) 
zc  =    zc-32 
zl   =    zc*5+3  1 647 
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zq  =  varptr  (a(0) ) 

poke  zq,    peek(zl) 

poke  zq+l,    peek (zl+1) 

poke  zq■^2,    peek  (zl+2) 

poke  zq+3,    p€ek(zl+3) 

poke  zq+U,    peek  (zl-^-U) 
put  (zx,  zy)  -  (  zx-«-z4,zy+z7  )  ,a,  p^et 

zx  =  zx+z3 
return 
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APPENDIX    B 


PROSRAM    LISTING 


5   rem  this   program    is     to    simulate  the   amphibious   operation 
in   ship-to-    shore-movement    phase 


10 
15 


20    rem   varible    declaration 


25 

30 
35 
UO 
U5 
50 
55 
60 
65 
70 
75 
30 
35 
90 
95 


by    It.    Chanck   Hongnoi 
October   4,     1982 


a$      =    strinc  buffer   for  display 

c$      =   numeric   input   buffer 

gc$    =   comma rd    used    for    conrrol 

gr$   =   grid    reporx   buffer 

q$      -   quit    command 

sH$   =   ou-put  the   word    "shore" 

t$   '  =   -ime    report  storage 

tt$   =   previous    time   report   out-pu 

zz5    =   character    of   a$ 


bp      =    offset   bearing 


br  =    bearing    wave    input 

cl  =    lenghz  of    c$ 

CO  =    lane's  course 

em  =   error   message   poin-er 

fg  =    flag    cf    position    plot 

100    'g  =   varible    grid   plot 

10  5    'hh  =   h-Tiour 
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110    ' 

r  T_ 

115    ' 

J 

120    ' 

k 

125 

'1 

130    ' 

mm 

135    ' 

ph 

1U0     ' 

PX 

145     " 

py 

15  0    ' 

qq 

155     ' 

rg 

160    ' 

rn 

165    ' 

sc 

170    ' 

sp 

175 

'tc 

180     ' 

'tp 

185 

•-h 

190    < 

-m 

195 

'■ts 

20  0 

'tu 

20  5 

'vx 

210 

1  vy 

215 

»wh 

22  0 

'  wx 

22  5 

'wy 

23  0 

'XV 

23  5 

•z4 

2a  0 

•z7 

loop    counter 

loop    counter 

loop    counter 

length  of   a$ 

m- minute 

direction    in   degree 

horizcntol  axis    of   pes. 

vertical    axis   Df    pes. 

quit    flag 

range   from   wave    guide 

offset  range 

time    scale 

speed   of    wave   guide 

difference  of   present   time    and   predicted   time 

predicted   time 

time    in   hour 

time    in   minute 

time    in    second 

present    time   of    wave 

previous    horizontal   axis   of    wave 

previous    vertical  axis   of    wave 

relative    bearing    of   wave   in    degree 

horizontal  axis    of   wave   location 

vertical    axis    of    wave    location 

numeric    input    from   key   board 

character    width 

character    high 
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2U  5  '28   =   character   gap 

25  0  '29    =    line    gap 

255  'zc   =   character    data 

26  0  *zl   =    data    pointer   to    read   character 

26  5  'zq   =    varib  le    pointer    of  array   "a" 

270  'zx   =   horizontal  location   of   alphanumeric  output 

27  5  'zy   =   vertical    location  of   alphanumeric   output 

29  9       I**********  ***********  4c4c**4c«4c4c««c**^4c«*4c:«c:^:ic4c4c4c:(( 

30  0   rem    master    control   program  * 

30  1       »  *********************  **4e**:if**ifM********^***** 

305    clear    200,3  1646 

310   gcsub    1900' set    character 

315    gosub    1100     'error  table 

320    gosub    700       'input  data 

325    gosub   400       'offset 

330    gosub   500       'echo   input 

335    gosub    1500     'set    time   scale 

340    gosub    1600     'plot  grid 

345    gcsub    1300     'wave  position 

350    gcsub    1245     'print   tima 

355    gosub   900       'compurs    time   differrnce 

36  0    gcsub    600       'grid   report 
365    if    gqOI    then    345 

37  0    qS    =    inkeyS: 

if    q$    =    ""     ^.hen    370 
37  5    if    q$    <>    "q"    uhen    320 
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38  0    stop 
38  5    end 

43 0    ********************************************** 
U05    rem   subroutine   offset  * 

4Q5       I  4c:icic3tc4c4c4e4c*4c:^4::»***4:*«4E*  ************************ 

410   input   "the  offset   of   primary   control   ship   from 
reference  point  in  bearing"  ; bp 
U15  if  bp  >  360  then 

print  er$(3)  : 

goto   410 
42  0    if    bp   <    0   then 

print   er3(2)  : 

goto   410 
42  5    input    "range  from  reference   point"  ;rn 
430    ph   =    int (bp-co) /180*3,  141592654 
435    px   =   int  (20  0-rn/10*GO3  (ph)  ) 

44  0    py   =    int  (17  2-rn/10*sin  (phn 

445    if    px    >    255   or    px   <   0    or   py    >    191    or    py   <   72    then 
print   er  S(1)  : 
goto   425 

45  0    return 

5QQ       t  *************** ******  ************************ 

50  5  rem  subroutine  echo  input  * 

50 5  I  *********************  ************************ 

510  pmode  4, 1: 
screen  1,0: 
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pels    1 
515   zx=0: 

zy=0: 

a$="wave»s    speed  is"   *    str$(sp)    ♦    "   wave's    course   is"   + 
str  $  (CO)  : 

gosub    2000     •print  message 
52  0    2x   =   0: 

zy   =   9: 

a$   =    "h-hour  is"   ■^    str$(hh)    >   ":"    >    strSCmm): 

gosub    2000     'print   message 
525    2x=36: 

zy=18: 

a$  =  "  bearing": 

gosub    2000     : 

zx=36: 

zy=27: 

a$="range" : 

gosub    2000     'print   iiessage 
530    zx  =  36: 

zy=36: 

al  =  "tiine": 

gosub    2000     'print   message 
535    zx    =    36: 

zy   =   U  5 : 

a$   =   "grid    position   is": 

gosub    2000     'prin^   message 
5U0    zx    =    114: 
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zy   =    18: 

aS   =   "degrees": 

gosub    2000     'print  message 

54  5    zx   =    114: 

ZT    -    111 

a$   =   "yards": 

gosub  2000  'print  message 

55  0    return 

5Q3      l:«c4c:^4(4c4c4e4c4(4c*4E*«4e«*4c*#3ie  ************************ 

605    rem   subroutine    grid   report  * 

5Q5    I  *********************  ************************ 

610    if    wy   <    142   and    wy    >=    137   then 
gr$   =   "r   ": 

gc$  =  "vector  lefn  5  " 
615    if    wy    <    162   and   wy    >=    142   then 

gr$   =   "c   ": 

gc$  =  "  " 

62  0  if  wy  <  16  7  and  wy  >=  16  2  then 

gr$  =  "1  ": 

gc$  =  "vector  right  5  " 
62  5  if  wy  >=  16  7  then 

gr$  =  "11": 

gcS  =  "vector  right  10  " 
630    if    wy    <    137   then 

gr$  =    "rr": 

gcS   =   "vector  left    10      " 
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63  5  if  wx  <=0  then 

gr$  =  "tcuch  down": 

zx  =  32: 

zy  =  72: 

aS  =  "pr€ss»q»  to  quit  else  continue  !": 

gosub  20  00  : 

qq  =  1 

64  0  zy  =  4  5: 

zx  =  138r 
a$  =  gr$: 

gosub  2000  *print  message 
64  5  if  gg$  <>  gc$  then 

zy  =  54: 

zx  =  36: 

a$  =  gc$  : 

gosub  20C0  : 

qq$    -    gc$ 
650  return 

70  0  ***********  ♦**#***♦***  **5*t* ******  ************** 

70  5    rem    subroutine    inpur   lata  * 

7Q5    I********************************************* 

710    els 

715    input"h-hour";hh 

72  0    if    hh    >    24    then 

print   sr  3(4)  : 

goto   715 
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72  5    if   hh    <   0   then 

print   erS(2)  : 
goto   715 
730    input    "m-minute";intn 

73  5    if    mm    >   60    then 

print   er$(U)  : 
goto  730 
7U0    if    mm    <    0   then 

print   er$(2)  : 
goto   730 

74  5    input    "set    hour";th 

75  0    if   th    >   24    then 

print   er${4)  : 
goto  74  5 
75  5    if   th    <    0   then 

print   erl(2)  : 
goto    745 

75  0    input    "set      minute  the    realtime   clock      will    star- 
you    press   <enter>";tra 

76  5    if    tm    >    60    *hen 

print  er$  (4)  : 
goto  76  0 
770  if  -m<0  then 

print  erS(2)  : 
goto  760 

77  5    tim€r=0 

78  0    input    "boat    lane's    coarse"  ;co 
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785  if  CO  >  360  then 
print  er $(3) : 
goto   78  0 

79  0    if   CO   <    0   then 

print   9rS(2)  : 
goto   78  0 
795    input    "wave's    s?eed";3p 

80  0    if    sp    <   2   then 

print  er$(2)  : 
goto  795 
80  5  return 

90 0  I *************************** ****************** 

90  5    rem    subroutine    computa    time   difference  * 

90  5    I  **********  ***********  ************************ 

910    tu  =   int  (MX*.  3/sp) 
915    tp   =   6  0*  (hh-th)  +  (mm-tm) 
920    if  tp    =   60/sp    then 
zx   =    36 : 

zy   =    5a: 

a.$   =    "zero    flag    down": 
gosub    2G0i0    'print   message 
92  5    if    int  (tp-6  0/sp)    =    5   then 
zx   =    36  : 
zy    =    5U: 

a5    =    "zero    flag   up": 
gosub    20G0    'print   message 
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93  0    tc   -    tu-tp 

93  5    if    tc    =   0    then 

a$   =   "u    are   ontima" : 
zy   =   36: 
zx   =152: 
t$    =   a$: 
gosub   2  0  00: 
goro   96  0 
9U0    if   tc   <   0   then 

t$   =   "    rain. early   " 
else  t$="   m in.  late     " 

94  5    tc   =   int  (abs(tc)  ) 
950    if   t$    =   tt$   then 

zy   =   36: 

zx    =    152 : 

a$   =   str  $(tc)  : 

gosub   20  00    'print   message 
955    if   T$   <>   tt$  rhen 

zy   =    36: 

zx    =    152: 

aS   =   str$(tc)    +   t3: 

gosub    20  00    'print   message 
96  0    tt$   =    t$ 
96  5    ret-urn 

1005    rem    subordinate  error    handler  * 
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10  06       *********************  ♦****************:»****** 

10  10    zx    =    36: 

zy    =    54 

10  15   a$   =   er5(eEn) 

1020   gosub   2000    'print   message 

10  25    return 


10  00      **********  ***********  **jjc***********4c*  ******** 

1105    rem   subroutine   error    table  * 

1105    I  *********  ***********  ************************ 


1107  erS  (1)  -   " 

11  10  €rS(2)  = 

11  15  erS  (3)  = 

1120  er$(4)  = 

1130  erS(5)  = 

11 35  return 


"cut    of  screen 
"too    small  value 

"greater   than   360 
"too   large   value 
"invalid   input 


1200    ' ********************  ************************ 

12  05    rem   subroutine    read   time  * 

12  06    ' ********************  ************************ 

12  10    ts   =   fix  (timer/60) 
12  15    if   tc   =   ts   then   1240 
12  20    tc    =   ts 

12  25    if    ts    >=   6  0   then 

timer    =   0: 

tm   =   t  m  +1  : 

ts=ts-6  0 
1230    if   tm   >=   60  then 
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th  =   th>1: 

tm  =  0 
1235    if   th   >=   2U  then 

th  =  0 
12U0    return 

12  44    ********************************************* 
1245    rem   subroutine   print    tims  * 

1246       **********  ***********  **:^4c  ******  ************** 

1250   a$   =   strS(th)     +  strS(tin)    +   str$  (Is)    +   "    " 
1255    zy    =    36: 
zx   =    90: 

gosub   2000    'print    message 
1260    return 

13  00    t  ****** *«*****:it*** ************* ***«***4t****** 

1305  rem  subrouxine  wave  position  * 

13  06  ' ********************  ************************ 

1310  zx  =  78: 

zy  =  18: 

a3  =  "  ?    ": 

qosub  2000  : 

zx  =  84: 

gcsub  1815 
13  20  br  =  XV 

13  25  if  br  >  36  0  or  br  <  0  -hen 
em  =  6  : 
qosub  1 000: 
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qoto  13  10 
1330     zx  =  78: 
zy  =  27 : 
a$  =  "  ?     ": 

gosub  2  000: 

zx  =  84: 

gosub    1 815 
1335    if   em   =   U    cr    em   =   6   then 

em  =:   0 : 

goto    13  30 
1340  rg   =   XV 

1345    if   rg   <   0    then 

em    =   5  : 

gosub    1000: 

goto    13  30 
1350    wh    =    (br-co)/180*3.  14  1592654 
1355    wx    =    int  (px-rg/10*cos  (wh)  ) 
1360    wy   =   in-c(py-rg/10*sin  (wh)  ) 
1365    if    WX   <  o    then 

wx=0 
1370    if    wx   >    25  5  or    wy    >    191    or    wy    <    0   then 

em=1 : 

gosub    1000: 

return 
1375    if    fg   =   0    then 

preset  ( wx,  wy)  : 

fg=1: 
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goto    13  SO 
13  80    if    fg  =    1     then 

line  (wx  ,wy)  -  (vx-vy  )  ,  preset 
1385    put  (vx,vy)  -(vx-«-z4,vy4-z7),  b,p3et 
1390    vx   =    wx: 
vy   =    wy 

13  95    get  (wx,  wy)  -  (wx+zU,  wy<-  z7)  ,  b,g 
1400    zx    =    wx: 

zy    =    wy: 

a$    =   "<": 

gosub   2000    'print    message 

14  05    return 

15  00    ********************************************* 

1505  rem    subroutine    ser   time's    scale  * 

1506  **********  ***********  ************************ 

15  10    sc    =    sp*.  55555*2 

1515    k    =   0 

1520    for    i  =   0    to    220   step    sc 

15  25  if   k./3-int(k/3)    =    0    then 

a$  =   s'T$  (int  (k/3))  : 

zx  =   i: 

zy    =    130: 

gosut  2000: 

line  (i,  132)-  (i,  176)  ,prss  =  t 
15  30  line  (i,  172)  -  (1,176)  , preset 

1535  k   =   k+1 
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15  40   next   i 
1545    retarn    * 

16 00    ********************************************* 
1605    rem   subroutine    plot  grid  * 

16  06       '  ********************  3^4c:4c4c:4c«:^4c4e*:«c4c4c**4c*4c:4c*:«c*:4e« 

1610    q    =    132 

16 15    for    i=    1   tc  6 

16  20  lin^  (0,  g)  -  (255rg)  ,  preset 
1625  g   =   g+5 

1630  if   g    =    147    then 

g=16  2 
1635    next    i 

1640    for    i   =   0    to    255  step    20 
1645  line  (i,  128) -(i,  172)  , preset 

16  50  if   i=0    then    1665 

1655  zx   =    i-12: 

zy   =    120: 

aS   =   str$(int  (i/IO)  ) 
1660  gosub    2  000    'print    message 

1665    next    i 
1670    zx    =    px: 

zy   =    py: 

aS    =    "#": 

gosub    2000    'print    message 
1675    line(0,  128)-(20, 80)  , preset 
1630   line(20, 80)- (20,30)  , preset 
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1685    shS   =    "shore" 

16  90    zy    =    36 

1695    for    i  =    1    to    5 

1700  zx    =   0 

1705  a$   =    midS  (sh$,i,1) 

1710  qosub   2  000    •  print    message 

1715  zy=zy+9 

17  20   next   i 

1725  draw  "bm  1 1  2,  1  08;cO;9  1  0;  d4;r2ti ;  i  1  2  ;  124  ;d4;  hlO" 
1730    zx   =    118: 

zy    =    105: 

a$   =    str*  (CO)  : 

gosub    200  0    'print    message 
1735    zx   =    60: 

zy    =    88: 

ai   =    "ship   to    shore   simulation": 

gosub    2000    'print    message 

17  4  0    return 

18  00  ' ******************************************** 
18  05  rem  subroutine  numeric  input  * 
1806  '  ******************************************** 
18  10  gosub    2000    'print    message 

18  15    c3    =    "": 

i=1 
18  20    k$    -    inkeyS: 

if   a$  =   chr5(13)    then    136  5 
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1825    cl  =    len(c3)-1 

1830    if    a$   =  chr$(8)    then 

c$  =   laft5  (c$,cl)  : 

i  =   i-1: 

zx  =   zx-6 : 

qoto    18  20 
1835    if    a5  =    ""   then 

qosub    1200: 

qoto    18  20 
ISaO    if    asc(a5)    <   48   or   asc(a5)     >   57    then 

em=6: 

qosub    1000: 

qoto    18  70 
1845    c$   =    c$+a3 

1850    qosub    2000    'print    messaqe 
1855    i  =    i+1 : 

if   i   >   5   then 

am   =   4 : 

qosub    1000: 

return 
1860    qoto    1820 
1865    XV   =    val(cJ) 
1870    return 

19 00     ********************************************* 

19  05    rem   subroutine   set    character  * 

19  06    ' ********************  ************************ 
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19  10    dim   a(2)  ,     b(2)  ,    er$(5  ) 
1915   els 

19  20    print   "please    wait   for  loading   characters    !" 
1925    z4   =    4: 
z7   =    7: 

28  =   6: 

29  =    9 

1930    for    2l    =   0    to    479 
19  35   read   zc 
194Q   poke    31647+21, zc 
19 45    next    zl 

19  50    return 

20  00     **********  *:(t  *********  ************************ 

2005  rem   subroutine    print    message  * 

20 06  *********************  ************************ 

20  10    1  =   len  (a5) 

2015    for    j   =    1    to    1 

2020  zz$   =   raid$  (a$,  j,1) 

2025  gosub   2  100     'print    character 

20  30   next    j 
2035    return 

21 00    *  ******************************************** 

2105  rem   subroutine    print    character  * 

2106  ' ********************  ************  ************ 

21  10    zc   =    asc(zz$) 

21 15    zc    =    zc-32 
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2125    zl    =    zc*5>316U7 
2130   zq  =    varptr(a(0)) 
2135    poke   zq,    p€ek(zl): 

poke   zq  +  1,    p6ek(zl  +  1)  : 

poke   zq-«'2,    peek(zl  +  2)  : 

poke    zq  +  3,    peek(zl+3)  : 

poke   zq+U,    peek(zi>^) 
2140    put(zx,zy)  -(zx+z4,zy+  z7) ,a,ps9t 
2145    zx   =    zx+z8 
21U6    • 
2150   return 

21  55    *********************  ******************************* 

2200    rem   character    data    area* 

22 05    **************************************************** 

2232  data  255,  255,  255,  2  55,  255 

2237  data  222,  247,  189,  255,  127 

2242  data  173,  107,  95,  25  5,  255 

2247  data  173,  65,  80,  36,  191 

2252  data  220,  23,  29,  7,  127 

2257  data  57,  187,  187,  179,  159 

2262  data  186,  215,  IT^,  54,  95 

2267  data  156,  238,  255,  255,  255 

2272  data  238,  239,  123,  239,  191 

2277  data  190,  251,  222,  2  38,  255 

2282  data  218,  162,  8,  171,  127 

2287  data  254,  246,  13,  239,  255 
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2292    data  255,     255,    57,    22  1,    255 

2297    data  255,     254,    15,    255,    255 

2302   data  255,     255,    255,    156,    255 

2307    data  2U7,     187,     187,    189,    255 

2312   data  139,     152,     163,    5  8,    53 

2317    data  220,     247,     189,    238,63 

2322    data  139,     189,    23,    188,    31 

2327    data  139,     189,     159,    58,    63 

2332    data  238,     106,    208,    119,    191 

2337    data  3,    195,    239,    53,     63 

2342    data  205,     222,    23,    58,    63 

2347    data  7,    18  7,     187,     139,    25  5 

2352    data  139,     157,    23,    53,    63 

2357    data  139,     157,    15,    53,    63 

2362    data  252,     231,    249,    2  07,    255 

2367    data  156,     255,    57,    221,    255 

2372    data  238,     238,    251,    239,    191 

2377    data  255,     193,    240,    127,    255 

2382    data  190,     251,    238,    238,    255 

2387    data  139,     189,    221,    255,    127 

2392    data  139,     189,    37,    %2  ,    63 

2397    data  221,     92,     224,    57,    223 

2402    data  13,    173,    27,    38,    63 

2407    data  139,     158,    247,    186,    63 

2412    data  13,     173,     107,    38,    63 

2417    data  3,    2  2  2,    55,    188,     31 

2422    data  3,    222,    55,    139,     255 
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2U27 

data 

24  32 

data 

2U37 

data 

24  U  2 

data 

24  47 

data 

24  5  2 

data 

24  57 

data 

24  6  2 

data 

2467 

data 

2472 

data 

2477 

data 

24  82 

data 

24  87 

data 

24  9  2 

data 

24  97 

data 

25  0  2 

data 

2507 

data 

25  12 

data 

2517 

data 

25  22 

data 

2527 

data 

2532 

data 

2537 

data 

25  4  2 

data 

2547 

data 

25  52 

data 

25  57 

data 

131,     222,     199,    58,    63 
115,     156,    7,    57,     223, 

142,  247,     189,    238,    63 
247,     189,    239,    58,    53 
115,     86,     117,     18  1,    223 
123,     222,    247,    1  88,    31 
113,     20,     T67,    57,    22  3 
113,     148,     199,    57,    223 
3,    156,     231,    56,     31 
11,     156,    23,    189,    255 
139,      156,     229,    5  4,    95 
11,     156,    21,    181  ,    223 
139,     159,    31,    58,    63 

6,  247,     189,    239,    127 
115,      156,     231,    58,    63 
115,     157,    90,    239,    127 
115,     156,     229,    17,    223 
115,     171,     186,    135,    223 
115,     171,     189,    239,127 

7,  187,     187,     188  ,    31 
141,     239,     123,    222,    63 
123,     239,    190,    251,    223 

143,  123,     222,    246,    63 
220,     65,     189,    239,    127 

254,  238,     11,    239,    255 
206,     119,     223,    255,    255 

255,  227,     232,    58,    31 
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25  6  2 
2567 
25  72 
2577 

25  82 
25  87 

25  9  2 
2597 

26  0  2 
26  07 
26  12 
26  17 
26  22 
26  27 
26  3  2 
26  37 
2642 
2647 
26  52 
26  57 
26  6  2 
26  67 
26  72 
2577 
26  82 
26  87 
26  92 


data 

123. 

r  210, 

data 

255. 

,     226, 

data 

24  7, 

r   164, 

data 

255, 

226, 

data 

238, 

f     183, 

data 

252, 

,  152, 

data 

123, 

,  222, 

data 

254, 

255, 

data 

255, 

r     191, 

data 

123, 

,     218, 

data 

158, 

r  247, 

data 

255, 

f     234, 

data 

255, 

r   210, 

data 

255, 

,     226, 

data 

250 

r   76, 

data 

252, 

r   152, 

data 

255, 

r   210, 

data 

25  5, 

r  224, 

data 

222 

,     193, 

data 

255, 

,     220, 

data 

25  5 

f     220, 

data 

255, 

f     220, 

data 

255 

r   221, 

data 

251 

,     156, 

data 

25  5 

r   193, 

data 

238 

f     247, 

data 

222 

,     247, 

103,  25,    53 

231,  186,    63 

199,  5  0,    9  5 

224,  6  2,    6  3 
29,    239,    127 

201,  1 21,    209 

147,  57,  223 
61,    238,    63 

239,  1  21,    209 

179,  173,     191 

189,  238,    63 

165,  57,    223 

103,  57,    223 

231,  58,    63 
227,    37 ,    239 

230,  75,    222 
103,  1 89,    255 
248,  248,    63 
189,  2  35,     191 

231,  58,    63 

231,  37,  127 
229,  42,  191 
93,    213,    223 

232,  1 21,    209 
221,  220,    31 
125,  239,     191 

253,    2  39,    127 
82 


2697  data  190,  2H1 ,  221,  238,  255 
2702  data  186,  187,  255,  2  55,  255 
2707    data   0,    0,    0,    0,    0, 
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APPENDIX    C 


COMMAND    SUMMARy, 


THE    COMMANDS    USED    IN    COMPUTER. 
WORD  PURPOSE 

ABS  Computers   absolute   value. 

ASC  Returns   ASCII   code  of   first 

character   of    specified    string. 
ATN  Returns  arc    tangent   in   radians 

AUDIO  Connects   or    disconnects   cassette 

output  to   17    speaker, 
CHR$  Returns  character   for    ASCII, 

control,    or    graphics   code. 
CIRCLE  Draws   a   circle   with   canter    at 

point  (X,Y)    with   a   radius   of   r, 

of  a    specified  colour   c, with 

height/width    ratio  (hw)     of    0-4 

Circle   can    begin    and   end    at 

specified   point    (0-1). 
CLEAR  Reverses    n    bytes    of   string    storage 

space.    Initializes   variables. 

Specifies    highest    BASIC    address. 
CLOAD  Lead    specified   program    file    from 

cassette.    If    filename    is    not 
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specified,  first  file  encountered 
is  loaded.  Filename  mist  be  eight 
characters/spaces  or   less. 

CLOADM  Loads    machine   language    program 

from   cassette.    An  offset    address 
to  add  the  loading   address   may   be 
specified. 

CLOSE  Closes  open    file    or   devices. 

CLS  Clears  display   to    specified   color. 

If  color    is    not    specified,    green   is 

is  used. 
COLOR  Sets    forground  and   background  color. 

CONT  Ccntinues    program   execution   after 

pressing    3R2AK   or   using    STOP    statement, 
CDS  Returns  cosine   of   angle    measured    inradians, 

CSAVE  Saves    program   on    cassette  (program 

name    must    bs    eight   character/ 

spaces  or   less).     For   ASCII    format,    use    "A.'' 
CSAVEM  Writes  out    a    machine-language    file. 

DATA  Stores  data    in   your    program.    Use 

READ    to   assign   this    data    to   variables. 
DEF    FN  Defines   numeric   function. 

DEFOSR  defines   entry    point    for    JSR    function. 

DEL  Allows  deletion   of    program   lines. 

DEL-    Delete    entire   program. 

DEL    n    Deletes    specified    line    n. 
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DEL   n-  Delates  all   linas   past   n. 

DEL   -n  Delates  all   lines    up    to   n. 

DELn-n   Deletes   all   lines    between    n    and    n, 
DIM  Dimensions   one   or   more    arrays. 

A   UK    systei    allows   only   one   dimension. 

A    16K   allows    multi-dinensional   arrays. 
DLOADM  Loads    machine-language    program 

at  specified    baud. 

0  =    300   baud  1    =    1200    baud 
DRAW                        Draws   a   line    beginning    at   speci- 
fied   starting   point   of    specified 
length  of   specified   cDlor.    Hill 
also    draw   to    scale,    draw    blank 
lines,   draw    non- updated    lines   and 
execute  substrings.    If    starting 
point    is   jLoz    specified,     (128,96) 
or  last   DRAM    position   is    used. 

EDIT  Allows  editing   of    program   line. 

nC        Changes    n   number    of 

characters. 
nC        Dele-=3    n   number    of    characters. 

1  Allows    insertion   of    new 
charact  er. 

H  Deletes    rest    of   line    and   allows 

insert. 

L  Lists   current    line    and   continues 

edit. 

86 


nSc      Searches  for  nth   occurrence   of 

character  c. 
X  Extends    line, 

SHIFT   -•     Escape    from   subcommand. 
n   SPACEBAR  Moves   cursor    n   spaces   to    right. 
n   <      Moves  cursor   n   spaces   to   left. 

END  Ends    program. 

EOF  Returns   FALSE(O)     if   there   is   more 

data;    TRaS(-1)if    no   data    is    in   the 
specified    file.    For   cassette    files, 
f  =   -1;    for    keyboard   files,    f=0. 

EXEC  Transfers   control   to   machine- 

language    programs    at    specified 
address.    If    address   is  -omitted, 
control  is   transferred   to   address 
set    in   last    CLOADM. 

EX?  Return   natural  exponential   of 

number    (e    number) 

Exponential        Raises   number   to    specified    power 

FIX  Return  truncated    valua.    All 

integers   ar=    truncated. 

FOR,. TO  Creates  a   loop  in   program    which 

STEP/  the   computer    must    repeat    from   the 

NEXT  first   number    to    the   last    number 

ycu   specify.    Use   step    to    specify 
hew    much   to    increment    the    number 
each    time   through   the    loop.    If 
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ycu    omit    STEP  one    is    used. 
GET  Read    the   graphic    contsnts    of   a 

ractangle   into  an   array   for 

future  use   by   PUT. 
GOSUB  Sends   the   computer  to   subroutine 

beginning   at    specified    line   number, 
GOTO  Sends   the   computer  to   the   specified 

line    number. 
HEX$  Ccmpute  hexadecimal    value 

IF/THEN  Test    the   relationship.    If   it    is 

true,    the    computer   execute   the 

instruction    following    THEN. 
INKSY$  Strobe  the   keyboard   and    returns 

the    key  being   pressed. 
INPUT  Cause   the    co  mpuxer    t:o    stop    and 

await    input    from   the   keyboard 
IN?UT#-1  Input   data    from   cassette 

INSTR  Search   for   the   first    occurance 

INSTE$(5,X$,YS) 

of  string   YS    in   string    X3    and 

returns  tha    position    at    which 

the    match    is    found. 
INT  Ccnverx   a    number    to   ai    integer. 

JOYSTK  Returns  the    horizontal    or   vertical 

coordinate   of   the   Isft    or   right    joystick: 

0  =horizontal,    left    joystick 

1  =    vertical,    right    joystick 
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2  -    horizontal, right   joystick 

3  =   vertical.   Is  ft    joystick 

LEFT$  Return  the  left   potion    of   the   string. 

LEN  Retuns  the   number   of    character    in    a    string, 

LET  Assign  valus    to   variable 

LIST  Lists    specified   lines    or   entire 

program  on  the  screan    LIST   50-100 

LINE  Draw    a  line    from   the   start    point 

tc  end   point    if   start    point   is 
Offiited,    (128,96)     or   the    last    end 
point    is   usad.    PSET   salscts 
foreground  color    and   PRESET 
select   background   col^r.    ,3 
draws   a  box    with    start    and   end   points 
as  the  corn®  rs  (instead    of   a    line),    ,Br 
will   fill   in    tha    box. 

LINE    INPUT  Input   line    from    keyboard. 

LOG  Eeturns   natural    logarithm. 

MEM  Finds  amount   of    free    mamory. 

MIDI  Returns   a   substring   if    another 

string.    If    length   option    is 
omitted,    the   entire    string    right 
cf    position    is   returaad. 

HID3  Replaces    a    portion   of    one   string 

«ith   anothar   strin:j. 

MOTOR  Turns  cassette  ON  or    OFF. 
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NEW  Erases  evecything   in    memory, 

ON--.GOS0B  Multi-way   branch   to   specified   subroutines. 

ON... GOTO  Multi-way   branch   to   specified  lines. 

OPEN  Open    file(f)    at    Screen   or 

Keyboard  (0)  ,   Ca  ssetta  (- 1)  , 
Printer  (-2)  for   input  (I)    or    (0). 

PAINT  Faints  graphic   screen    starting 

at    point    (X  ,Y)    with    specified 
color.    Stops   at    border   of   specified   color. 

PCLEAR  Reserves    n    number   of    graphic   memory    pages. 

PCLS  Clears  scraen   with   specified 

color.   If   color    coda    is   omitted, 
airrent    background   color   is   used. 

PCOPY  Copies  graphic   from    source   to 

destination    page. 

PEEK  Returns   the    contents    in    the 

memory   location    you    specified. 

PLAY  Plays  music    of   specified   note 

(A-G   or    1- 1  2)  octave  (0)  ,    volume 
(V)     note    langth(L),    t9mpo(T), 
pause  (P)  ,    and   allows    execution 
of    substrings.    Also    sharps  (#    or 
•♦•)     or   flats  (-) . 

PMCDE  Selects    resolution   and    memory 

page    to    start   on. 

POINT  Tests  whether  specified  graphics 

cell  is  on  or  off,  X (horizontal) 
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=0-31.    rh9    value   ratiirned   is   -1 

if   the  cell    is   in   ths    character 
mode,    0    if    it   is   off,    or   the  color 
code    if   it    is  on. 

POKE  Puts    values    into    specified 

memory  location. 

POS  Seturns   current    cursor   position. 

PPOINT  Tests   whether   specifiad    graphics 

cell   is   on    ot   off   and    returns 
color  code    of  specified   cell. 

PRESET  Sets   to    background  color. 

PRINT  Prints  spscified   message   on   the    screen, 

PRINT#-1  Writes   data    to   cassette. 

PRINT#-2  Prints  an   item    or   list    of    ixems 

en    the  printer. 
PRINT   TAB  Moves  the   cursor   to    specified 

column  position    and   prints. 
PRINT   USING  Prints  numbers  in   spacified   fomat. 

#    Formats    numbers. 

,    Decimal    point. 

,    Displays   comma   tD    left 

of  avsry   third   character. 
**    Fills    leading   spaces 

with   a  sterisics. 
5      Places    $   ahead. 
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$$   Floating  dollar   sign. 

**$   Floating  dollar   sign 

•*■      In    first   positiDn,    causes   sign   to   be 
printed.    In    last    position,    causes 
sign  t o   be    printed   after    the    number 
Exponential   foraat. 
Minus    sign    after    negative   numbers. 
Returns  first   string    charater. 
%spaces^  String    field;    length   of 

field    is   nember   of    spaces   plus   2. 
PRINTiD  Prints  specified   message   at 

specific   screen    location. 
PS  ST  Se-    specified   point    no    specified 

if   C   is   oaiited,    foreground   color    is   used. 
PUT  Stores  gr=i?hics   from    an    array      7,PSET 

onto   the   screen.     (Array    ractangle 
size    fflusi   match    GST    rectangle   size.) 
READ  Read   the   aext   item    ia    DATA    lineREAD    A3    and 

assign   ir    to   specified   READ   C,3    variable. 
REM    or'  Allow  insertion    of   commenz   in 

progream    Line.    Everything   after 
REM    is  ignored   by   Compu-er. 
RENUM  Allows   program   line   renumbering. 

RESET  Erases  dot    SET   at    specified   location. 

RESTORE  Sets   the   Computer's    pointer 
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back   to   first   item   on    the   line. 
RETURN  Returns   the    computer   from   subroutine 

to   the   BASIC   word   following 
RIGHTS  Returns   right   potion    of   string. 

RND  Returns   a   pseudo  -random    integer 

between   one    and   specified   number 

which    mus-    be   greater    than    one. 
RUN  Executes    the   program, 

SCREEN  Selects   ether  graphics   or    text 

screen  and    color   set 
SET  Sers   a  dot    at  specified    text 

screen  location    to   specified  color. 
SGN  Returns    sign  of   specified   numeric 

expression: 

-1    for   argument  is   negative 

0    if   argument    is   3 
+  1if  argument   is   positive 
SKIPF  Skip   file   to   end   of   next    program   on 

cassette    tape,    or   to    end   of 

specified   program. 
SIN  Returns    sine   of    angl=    measured   in    radians 

SOUND  Sounds   specified   tone    for 

specified   duration. 
STOP  Stops   execution    of   program. 

STRING?  Returns  a   string   of    ;rhiracters 

(of    specified   length)     which   are 

identified    by   ASCII    code   or   the 
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first  character   of   the    string. 
SIRS  Convert  a   numeric   expression   to   a    string, 

SQR  Returns   the    square    root    of    number. 

TAN  Returns   tangent    of   angle    measured 

in   radians. 
TIMER  Returns   contents   or   allows   setting 

of    timer    (0-65535) 
TROFF  Turns  off  program   tracer. 

TRON  Turns  on   program   tracer. 

OSERn  Calls  user's   machine   language   subroutine, 

VAL  Converts   a    string   to   number. 

VAHPTR  Returns   "pointer"   address    for 

the   specified  variable. 
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